home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gekikoh Dennoh Club 5
/
Gekikoh Dennoh Club Vol. 5 (Japan).7z
/
Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin
/
garou
/
koba
/
gkuma.lzh
/
KUMA1
/
KUMA.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1998-03-14
|
8KB
|
383 lines
; *** îF **********************************************************************
create object default obj_KUMA
fusion off
object obj_KUMA_kao
object obj_KUMA_karada
object obj_KUMA_hara
close
; *** îFé╠òá ******************************************************************
create object default obj_KUMA_hara
csg and
object obj_KUMA_karada1
geometry geom_KUMAhara
surface surf_KUMAhihu2
close
create object default obj_KUMA_hara1
geometry geom_KUMAhara
close
create geometry quad geom_KUMAhara
type ellp
len 1.3 2 2
mov 0 0.8 1
close
; *** îFé╠æ╠ ******************************************************************
create object default obj_KUMA_karada
csg diff
object obj_KUMA_karada1
object obj_KUMA_hara1
surface surf_KUMAhihu1
close
create object default obj_KUMA_karada1
fusion on
object obj_KUMAdotai
object obj_KUMAudeL
object obj_KUMAudeR
object obj_KUMAashiL
object obj_KUMAashiR
object obj_KUMAshippo
close
; *** îFé╠ô╖æ╠ ****************************************************************
create object default obj_KUMAdotai
geometry geom_KUMAdotai_A
geometry geom_KUMAdotai_B
close
; *** ô╖æ╠é╠âüâ^â{ü[âï(ï╣) ***
create geometry meta geom_KUMAdotai_A
type ellp
tlen 1.7 1.3 1.3
mov 0 1.8 0
weight 1.2
close
; *** ô╖æ╠é╠âüâ^â{ü[âï(ìÿ) ***
create geometry meta geom_KUMAdotai_B
type ellp
tlen 1.5 1.2 1.3
mov 0 -1.4 0
weight 1.35
close
; *** îFé╠ÿr(ì╢) **************************************************************
create object default obj_KUMAudeL
toroder movrot
mov 2.6 1.6 0.2
rot -10 0 30
geometry geom_KUMAudeL_A
geometry geom_KUMAudeL_B
surface surf_KUMAhihu1
close
; *** ÿré╠âüâ^â{ü[âï ***
create geometry meta geom_KUMAudeL_A
type ellp
tlen 0.55 1.3 0.55
mov 0 -1.3 0
weight 2.1
close
; *** ÿré╠âüâ^â{ü[âï(ì╢î¿) ***
create geometry meta geom_KUMAudeL_B
type ball
trad 0.25
weight 1.8
close
; *** îFé╠ÿr(ëE) **************************************************************
create object default obj_KUMAudeR
toroder movrot
mov -2.7 1.6 0.1
rot -110 0 -60
geometry geom_KUMAudeR_A
geometry geom_KUMAudeR_B
surface surf_KUMAhihu1
close
; *** ÿré╠âüâ^â{ü[âï ***
create geometry meta geom_KUMAudeR_A
type ellp
tlen 0.55 1.2 0.55
mov -0.2 -1.2 0
weight 2.1
close
; *** ÿré╠âüâ^â{ü[âï(ëEî¿) ***
create geometry meta geom_KUMAudeR_B
type ball
trad 0.25
weight 1.8
close
; *** îFé╠æ½(ì╢) **************************************************************
create object default obj_KUMAashiL
toroder movrot
mov 1.2 -1.8 0.1
rot 0 0 5
geometry geom_KUMAashiL
surface surf_KUMAhihu1
close
; *** æ½é╠âüâ^â{ü[âï ***
create geometry meta geom_KUMAashiL
type ellp
tlen 0.55 1.3 0.6
mov 0 -1.3 0
weight 1.7
close
; *** îFé╠æ½(ëE) **************************************************************
create object default obj_KUMAashiR
toroder movrot
mov -1.2 -1.8 0.1
rot 0 0 -5
geometry geom_KUMAashiR
surface surf_KUMAhihu1
close
; *** æ½é╠âüâ^â{ü[âï ***
create geometry meta geom_KUMAashiR
type ellp
tlen 0.55 1.3 0.6
mov 0 -1.3 0
weight 1.7
close
; *** îFé╠ÉKö÷ ****************************************************************
create object default obj_KUMAshippo
mov 2.25 -1.9 -0.35
geometry geom_KUMAshippo
surface surf_KUMAhihu1
close
; *** ÉKö÷(ïà) ***
create geometry quad geom_KUMAshippo
type ball
rad 0.6
close
; *** îFé╠èτ ******************************************************************
create object default obj_KUMA_kao
mov 0 3.5 1
fusion off
object obj_KUMAatama
object obj_KUMAmimiL
object obj_KUMAmimiR
object obj_KUMAhana
object obj_KUMAmeL
object obj_KUMAmeR
close
; *** îFé╠ô¬ ******************************************************************
create object default obj_KUMAatama
fusion on
object obj_KUMAatama1
object obj_KUMAatama2
object obj_KUMAatama3
close
; *** èOî` ***
create object default obj_KUMAatama1
geometry geom_KUMAatama_A
geometry geom_KUMAatama_B
geometry geom_KUMAatama_C
surface surf_KUMAhihu1
close
; *** î√é╠é┬é╚é¼ ***
create object default obj_KUMAatama2
geometry geom_KUMAatama_D
surface surf_KUMAhihu2
close
*** î√(2é▄é╜) ***
create object default obj_KUMAatama3
geometry geom_KUMAatama_E
geometry geom_KUMAatama_F
surface surf_KUMAhihu3
close
; *** ô¬âüâ^â{ü[âïA(èOî`1) ***
create geometry meta geom_KUMAatama_A
type ellp
tlen 1.34 1.25 1.5
mov -1.05 0.05 0
close
; *** ô¬âüâ^â{ü[âïB(èOî`2) ***
create geometry meta geom_KUMAatama_B
type ellp
tlen 1.4 1.3 1.5
mov 1.1 0.1 0
close
; *** ô¬âüâ^â{ü[âïC(èOî`3) ***
create geometry meta geom_KUMAatama_C
type ellp
tlen 1 1 0.9
mov 0 1.2 -0.1
close
; *** ô¬âüâ^â{ü[âïD(î√é╠é┬é╚é¼) ***
create geometry meta geom_KUMAatama_D
type ellp
tlen 0.34 0.3 0.6
mov 0 -0.3 0.8
weight 1.1
close
; *** ô¬âüâ^â{ü[âïE(î√1) ***
create geometry meta geom_KUMAatama_E
type ellp
tlen 0.1 0.2 0.4
mov 0.3 -0.2 1.4
rot 0 0 30
weight 1.19
close
; *** ô¬âüâ^â{ü[âïF(î√2) ***
create geometry meta geom_KUMAatama_F
type ellp
tlen 0.1 0.2 0.4
mov -0.3 -0.2 1.4
rot 0 0 -33
weight 1.21
close
; *** îFé╠Ä¿(ì╢) **************************************************************
create object default obj_KUMAmimiL
fusion on
geometry geom_KUMAmimi_A
geometry geom_KUMAmimi_B
rot 6 11 -8
mov 1.4 2 0.4
scale 0.63 0.55 0.6
surface surf_KUMAhihu1
close
; *** îFé╠Ä¿(ëE) **************************************************************
create object default obj_KUMAmimiR
fusion on
geometry geom_KUMAmimi_A
geometry geom_KUMAmimi_B
rot -1 -9 10
mov -1.4 2 0.35
scale 0.6 0.58 0.6
surface surf_KUMAhihu1
close
; *** Ä¿âüâ^â{ü[âïA(èOî`) ***
create geometry meta geom_KUMAmimi_A
type ellp
tlen 1.2 1.6 0.5
mov 0 1.6 0
close
; *** Ä¿âüâ^â{ü[âïB(îè) ***
create geometry meta geom_KUMAmimi_B
type ellp
tlen 0.23 0.35 0.1
mov 0 1.4 0.4
weight -1.5
close
; *** îFé╠ò@ ******************************************************************
create object default obj_KUMAhana
mov 0.028 0.223 2.41
geometry geom_KUMAhana
surface surf_KUMAhana
close
; *** ò@é╠âüâ^â{ü[âï ***
create geometry quad geom_KUMAhana
type ellp
len 0.3 0.15 0.3
close
; *** îFé╠û┌(ì╢) **************************************************************
create object default obj_KUMAmeL
mov 0.6 0.95 1.93
scale 1.05 1.05 1.05
geometry geom_KUMAme
surface surf_KUMAme
close
; *** îFé╠û┌(ëE) **************************************************************
create object default obj_KUMAmeR
mov -0.6 0.9 1.93
geometry geom_KUMAme
surface surf_KUMAme
close
; *** û┌(æ╚ë~æ╠) ***
create geometry quad geom_KUMAme
type ellp
len 0.07 0.1 0.1
close
; *** îFé╠Ä┐è┤ ****************************************************************
; *** öτòåé╠Ä┐è┤(1) ***
create surface default surf_KUMAhihu1
rgb 0.58 0.35 0.13
ambient 0.2 0.2 0.2
diffuse 1 1 1
specular 0.03 0.03 0.03
bump-map map_KUMA
close
; *** öτòåé╠Ä┐è┤(2) ***
create surface default surf_KUMAhihu2
rgb 0.68 0.49 0.25
ambient 0.2 0.2 0.2
diffuse 1 1 1
specular 0.03 0.03 0.03
bump-map map_KUMA
close
; *** öτòåé╠Ä┐è┤(3) ***
create surface default surf_KUMAhihu3
rgb 0.77 0.63 0.33
ambient 0.2 0.2 0.2
diffuse 1 1 1
specular 0.03 0.03 0.03
bump-map map_KUMA
close
; *** ò@é╠Ä┐è┤ ***
create surface default surf_KUMAhana
rgb 0.25 0.11 0.08
ambient 0.2 0.2 0.2
diffuse 0.8 0.8 0.8
specular 0.4 0.4 0.4
spec1 1 0.12 0.12
close
; *** û┌é╠Ä┐è┤ ***
create surface default surf_KUMAme
rgb 0.1 0.06 0.04
ambient 0.3 0.3 0.3
diffuse 0.5 0.5 0.5
specular 0.9 0.9 0.9
spec1 1 0.03 0.03
close
; *** âoâôâvâ}âbâsâôâO(é╡éφé╡éφ)é╠É▌ÆΦ ***
create map solid map_KUMA
volume vol_KUMA
transform tf_solid
close
create volume wrinkle vol_KUMA
magnitude 8
degree 0.7
close
create transform surface tf_solid
project solid
close